home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / online / motor.EXE / TABX.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-10-05  |  1.7 KB  |  60 lines
  1. begin
  2. write('ѥ');
  3. end.
  4. ,D4,D5 :FILE;
  5.    f1,f2,f3,f4,F5,F6,F7 :text;
  6.    str2,str1   :string[11];
  7.    STR3,STR4   :STRING[10];
  8.    STR5        :STRING[4];
  9.    STR6        :STRING[6];
  10.    ST1         :STRING[80];
  11.    x1,x2,x3,x4,x5,S,i :longint;
  12.    y1,y2,y3,y4 :real;
  13.    label 10,20,30;
  14.       BEGIN
  15.       ASSIGN(F6,'MOM.MNU');APPEND(F6);
  16.       WRITELN(F6,'[TABX]^C^C(COMMAND "DXFIN" "TABX")');
  17.       CLOSE(F6);
  18.                begin;
  19.                assign(f1,'mom2.dat');reset(f1);
  20.                assign(f2,'tabx.dxf');rewrite(f2);
  21.                writeln(f2,'  0');
  22.                writeln(f2,'SECTION');
  23.                WRITELN(F2,'  2');
  24.                WRITELN(F2,'ENTITIES');
  25.                WRITELN(F2,'  0');
  26.                while not eof(f1) do
  27.                begin;
  28.                readln(f1,X3,x1,x2,y1,Y2);
  29.                writeln(f2,'TEXT');
  30.                WRITELN(F2,'  8');
  31.                WRITELN(F2,'0');
  32.                WRITELN(F2,' 10');
  33.                WRITELN(F2,x1);
  34.                WRITELN(F2,' 20');
  35.                WRITELN(F2,X2);
  36.                WRITELN(F2,' 40');
  37.                WRITELN(F2,'10');
  38.                WRITELN(F2,'  1');
  39.                WRITELN(F2,ROUND(Y1*100));
  40.                writeln(f2,'  0');
  41.                end;
  42.                WRITELN(F2,'ENDSEC');
  43.                WRITELN(F2,'  0');
  44.                WRITELN(F2,'EOF');
  45.              CLOSE(F1);CLOSE(F2);
  46.              END;
  47.            end.
  48.  
  49.  
  50. uses crt;
  51. var
  52.    D1,D2,D3,D4,D5 :FILE;
  53.    f1,f2,f3,f4,F5,F6,F7 :text;
  54.    str2,str1   :string[11];
  55.    STR3,STR4   :STRING[10];
  56.    STR5        :STRING[4];
  57.    STR6        :STRING[6];
  58.    ST1         :STRING[80];
  59.    x1,x2,x3,x4,x5,S,i :longint;
  60.    y1,